#!/usr/bin/perl -w
unless ( -f $ARGV[0] ) {
print "$ARGV[0] is not a file \n";
}

if ( -d $ARGV[1] ) {
rename "$ARGV[0]", "$ARGV[1]/$ARGV[0]"; 
} else {
rename "$ARGV[0]", "$ARGV[1]";
}
